home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / 422mods.zip / CONAN09.422 < prev    next >
Text File  |  1993-04-12  |  3KB  |  71 lines
  1. 1CONAN09 3- 45A much better message subs listing! I use it!
  2. Conan #1 @7304
  3. Wednesday, April 7, 1993   9:42 am [EST]
  4. ┌────────────────────────────────────────────────────────────────────────────┐
  5. │ Mod Name      : CONAN09                 Mod Author: Conan 1@473   ComLink  │
  6. │ Difficulty    : ███▒▒▒▒▒▒▒                                1@7304  IceNet   │
  7. │ WWIV Version  : 4.22                                      1@7307  WWIVnet  │
  8. │ Mod Date      : 04/02/93                                  1@17325 WWIVLink │
  9. │ Files Affected: BBS.C                                                      │
  10. │ Description   : A mucho better message sublisting than the typical WWIV one│
  11. └────────────────────────────────────────────────────────────────────────────┘
  12. Muchas grassy ass goes out to Dr Forbin who practically made this mod for me
  13. after I was in dire need for a much better subs listing than the NON-COLOR
  14. listing. All you have to do is replace your own subs.lst with this one...
  15.  
  16.  
  17. /* BEGIN BLOCK READ */
  18. void sublist(void)
  19. {
  20.   int i,abort;
  21.   char s[80],s1[80],*ss;
  22.  
  23.   abort=0;
  24.   nl();
  25.   pla(get_string(617),&abort);
  26.   nl();
  27.   i=0;
  28.   while ((i<num_subs) && (usub[i].subnum!=-1)) {
  29.     sprintf(s,"7[3%-2.2s7] 6%c 1%-40.40s 3- ",usub[i].keys,
  30.       qsc_q[usub[i].subnum/32]&(1L<<(usub[i].subnum%32))?'*':' ',
  31.       subboards[usub[i].subnum].name);
  32.     if (net_sysnum || (net_num_max>1)) {
  33.       if (xsubs[usub[i].subnum].num_nets) {
  34.         if (xsubs[usub[i].subnum].num_nets>1)
  35.           ss="Gated";
  36.         else
  37.           ss=net_networks[xsubs[usub[i].subnum].nets[0].net_num].name;
  38.         if (subboards[usub[i].subnum].anony & anony_val_net)
  39.           sprintf(s1,"5%-8.8s ",ss);
  40.         else           
  41.           sprintf(s1,"5%-8.8s ",ss);
  42.         strcat(s,s1);
  43.       } else
  44.         strcat(s,"5Local      ");
  45.     }
  46.     pla(s,&abort);
  47.     i++;
  48.   }
  49.   if (i==0)
  50.     pla(get_string(5),&abort);
  51.   nl();
  52. }
  53.  
  54. That's all there is to it! Kick back and compile! If you're having any 
  55. problems with this mod or any other of the CONAN series drop me a line
  56. on my board, Perfect World BBS (703)255-6606 or E-Mail me on any of
  57. the following networks:
  58.  
  59. 1@473    ComLink
  60. 1@7304   IceNet
  61. 1@7307   WWIVNet
  62. 1@17325  WWIVLink
  63.  
  64. 1C7onan
  65. 
  66. 27╓7┐7╓7┐7╓7─┐7╓7┐7╓7┐7╓7┐7┌╥7┐ 7╥ 7┬7╓7┐7╓7─┐7╖ 7╥7┐ 7╓7┐7╓7┐7╓7┐  5IceNet @7304 3≡ 1WWIVNet @7307
  67. 37║7┘7╟0 7╟7┬┘7╟0 7╟0 7║0 7 ║  7║╥7│7║7│7╟7┬┘7║ 7║7│ 7╟7┤7╟7┤7╙7┐  7WWIVLink @17325 3≡ 6ComLink @473
  68. 47╨0 7╙7┘7╨7└ 7╨0 7╙7┘7╙7┘7 ╨  7╙╨7┘7╙7┘7╨7└ 7╙7┘7╨7┘ 7╙7┘7╙7┘7╙7┘  17o3-255-66o6 3≡ 2WWIVWeb @73000
  69. 5
  70. 6
  71.